home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / bitscrol.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  46 lines
  1. 1 ' *** GADGET *** BIT SCROLLING ***
  2. 5 CLEAR:ONERRORGOTO50:INPUT"Espace:";D,"Mot:";A$:FORI=1TOD:D$=D$+"00":NEXT:FORI=1TOLEN(A$):B=ASC(MID$(A$,I,1)):RESTORE(1000+B):READC$:$=$+C$+D$:NEXT:CLS:FORI=1TO10:$=$+"0":NEXT:$=$+$:PRINTCHR$(255);CHR$(29);
  3. 20 FORI=1TOLEN($)/2STEP2:DEFCHR$(255)=MID$($,I,10):GOSUB100:NEXT:GOTO20
  4. 50 IFERR=3;PRINT"Trop long !!":ENDELSEIFERR=18;PRINT"Symbole non defini !:"RIGHT$(A$,1);:ENDELSERESUMENEXT
  5. 100 A$=KEY:IFA$<>B$;PRINTA$CHR$(255)CHR$(29);:B$=A$
  6. 110 RETURN
  7. 1032 DATA0000000000,
  8. 1036 DATA7454FE545C,$
  9. 1048 DATAFE8A92A2FE,0
  10. 1049 DATA0000FE0000,1
  11. 1050 DATA9E929292F2,2
  12. 1051 DATA82829292FE,3
  13. 1052 DATAF0101010FE,4
  14. 1053 DATAF29292929E,5
  15. 1054 DATAFE9292929E,6
  16. 1055 DATAF0808080FE,7
  17. 1056 DATAFE929292FE,8
  18. 1057 DATAF2929292FE,9
  19. 1064 DATA7CBBABAB7C,@
  20. 1065 DATAFE909090FE,A
  21. 1066 DATAFE9292927C,B
  22. 1067 DATAFE82828282,C
  23. 1068 DATAFE8282827C,D
  24. 1069 DATAFE92928282,E
  25. 1070 DATAFE90908080,F
  26. 1071 DATAFE8292929E,G
  27. 1072 DATAFE101010FE,H
  28. 1073 DATA8282FE8282,I
  29. 1074 DATA8E82FE8080,J
  30. 1075 DATAFE10284482,K
  31. 1076 DATAFE02020202,L
  32. 1077 DATAFE80F080FE,M
  33. 1078 DATAFE201008FE,N
  34. 1079 DATAFE828282FE,O
  35. 1080 DATAFE909090F0,P
  36. 1081 DATAFE828A86FE,Q
  37. 1082 DATAFE909894F2,R
  38. 1083 DATAF29292929E,S
  39. 1084 DATA8080FE8080,T
  40. 1085 DATAFE020202FE,U
  41. 1086 DATAF8040204F8,V
  42. 1087 DATAFE021E02FE,W
  43. 1088 DATAC6281028C6,X
  44. 1089 DATA80403E4080,Y
  45. 1090 DATA868A92A2C2,Z
  46.